home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / TRITONBLITZ / Demos / tritonEZReq.bb2 < prev    next >
Encoding:
Text File  |  1998-06-24  |  796 b   |  38 lines
  1. ; just a quick demonstration of the pretty smart Triton EasyRequest
  2. ;
  3. ; This example is a bit short compared to the others :-)
  4.  
  5.  
  6. INCLUDE "blitz2:bbincludes/libraries/triton.bb2"
  7.  
  8. Dim apptags.TagItem(5)
  9. Dim reqtags.TagItem(10)
  10.  
  11. apptags(1)\ti_Tag=#TRCA_Name,Null("Triton's EZReq")
  12. apptags(2)\ti_Tag=#TRCA_LongName,Null("Triton's Easy Requester")
  13. apptags(3)\ti_Tag=#TRCA_Info,Null("This is the info slot")
  14. apptags(4)\ti_Tag=#TAG_END,0
  15.  
  16. reqtags(1)\ti_Tag=#TAG_DONE,0
  17.  
  18.  
  19. application.l=TR_CreateApp_(&apptags(1))
  20.  
  21. If (application)
  22.  
  23.   body$="%bHello World!" ; Bold text
  24.   body$+Chr$(9)          ; Add a tab char for a 3d separator line
  25.   body$+"%3Here Too!"    ; 3d text
  26.  
  27.   gads$="_OK|_Cancel"
  28.  
  29.   TR_EasyRequest_ application,Null(body$),Null(gads$),&reqtags(1)
  30.  
  31.   TR_DeleteApp_ application
  32.  
  33. EndIf
  34.  
  35. End
  36.  
  37.  
  38.